home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / wb / Fix.backdrop.lha / Fix.backdrop / Install_en < prev    next >
Text File  |  2001-08-30  |  2KB  |  72 lines
  1. ; $VER: Install Fix Backdrop 2.0 (30.08.2001)
  2. ; Written By Bruce Steers <bsteers@ukonline.co.uk>
  3. ; Description: Installer for Fix.Backdrop/awnp-handler
  4.  
  5. (set srcdir (pathonly @icon))
  6.  
  7. (welcome "Welcome to Bruces\nFix.Backdrop 2.0 Installation Utility")
  8.  
  9. ;------------------install/update the AWNPipe-handler-----------------
  10.  
  11. (set lv (getversion "l:awnpipe-handler"))
  12. (set nv (getversion "awnp/l/awnpipe-handler"))
  13.  (if (> nv lv)
  14.    (copylib
  15.    (source "awnp/l/awnpipe-handler")
  16.    (dest "l:")
  17.    (prompt "Installing AWNPipe-handler")
  18.    (help "This Will Install AWNPipe-handler to L:")
  19.    (confirm)
  20.    )
  21.    (copylib
  22.    (dest "Devs:dosdrivers")
  23.    (source "awnp/DosDrivers/awnpipe")
  24.    (prompt "Installing AWebNews Pipe:")
  25.    (help "This Will Install the AWNPipe Descriptor File to Devs:DosDrivers")
  26.    (infos)
  27.    )
  28.  (run "C:assign AWNPipe: dismount")
  29.  (run "C:mount AWNPipe:")
  30.  )
  31.  
  32. (set defdst
  33.   (copyfiles
  34.   (source "Fix.backdrop")
  35.   (dest "sys:tools")
  36.   (prompt "Select a drawer to install the Fix.Backdrop arexx script to.\nDefault is sys:tools/")
  37.   (help @copyfiles-help)
  38.   (confirm)
  39.   (infos)
  40. ))
  41.  
  42. (copyfiles
  43.   (source "Fix.backdrop.readme")
  44.   (dest defdst)
  45.   (prompt "Select a drawer to install the Fix.Backdrop.Readme to.\nDefault is "defdst"")
  46.   (help @copyfiles-help)
  47.   (infos)
  48.   (confirm)
  49. )
  50.  
  51.  
  52. (complete 99)
  53. (set runfile (tackon defdst "Fix.Backdrop"))
  54. (if
  55.    (askbool
  56.       (prompt "Run "runfile"")
  57.       (help "This will run the command\nrx "runfile"")
  58.       (default 1)
  59.    )
  60.    (
  61.       (run "run >nil: sys:rexxc/rx "runfile"")
  62.    )
  63. )
  64.  
  65. (set @default-dest (expandpath defdst))
  66.  
  67. (complete 100)
  68.  
  69. (exit  "\n\n" @app-name
  70.   " is now installed.\n\n"
  71. )
  72.